#'
#' The plotdim, area of the plot
#' 
#' @aliases area, plotdim
#'
#'@usage
#'area(data)
#'plotdim(data)
#'
#'@param data a population or community object
#'
#'
#'
#'@examples
#'data(BCI)
#'
#'plotdim(BCI)
#'area(BCI)
#'
#' @export
area <- function(data){
  return(prod(plotdim(data)))
}

#' @export
plotdim <- function(data){
  return(attr(data, "plotdim"))
}

